home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Boolean.p < prev    next >
Text File  |  2004-01-31  |  789b  |  32 lines
  1. pTempVar <- <primitive 110 6 >
  2. <primitive 112 pTempVar 1  " xor: " \
  3.   #( #[ 16r20 16r21 16rB7 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " eqv: " \
  7.   #( #[ 16r20 16r21 16rB6 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " or: " \
  11.   #( #[ 16r20 16rFB 16r02 16r21 16rA5 16rF3 16rF5] \
  12.     #(  )) >
  13.  
  14. <primitive 112 pTempVar 4  " and: " \
  15.   #( #[ 16r20 16rFC 16r02 16r21 16rA5 16rF3 16rF5] \
  16.     #(  )) >
  17.  
  18. <primitive 112 pTempVar 5  " | " \
  19.   #( #[ 16r20 16rFB 16r01 16r21 16rF3 16rF5] \
  20.     #(  )) >
  21.  
  22. <primitive 112 pTempVar 6  " & " \
  23.   #( #[ 16r20 16rFC 16r01 16r21 16rF3 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 98 #Boolean \
  27.   <primitive 97 #Boolean #Object #AmigaTalk:General/Boolean.st \
  28.    #(  ) \
  29.    #( #xor: #eqv: #or: #and: #| #&  ) \
  30.   pTempVar 2 3 > #ordinary >
  31.  
  32.